www.gusucode.com > 星梦奇缘交友网 1 > 星梦奇缘交友网 1.0源码程序/love/usermarry.asp
<!--#include file=conn.asp-->
<!--#include file=config.asp-->
<!--#include file=const.asp-->
<!--#include file=char.asp-->
<%
'=========================================================
' File: usermarry.asp
' Version:3.0
' Date: 2005-10-29
' Script Written by xmrxw
'=========================================================
' Copyright (C) 2004,2005 920520.com All rights reserved.
' Web: http://www.920520.com,http://www.xmzxw.com
' Email: info@mssky.com,super@mssky.com
' QQ：10689579 Msn：zdlmicr@hotmail.com
'=========================================================
response.buffer=true
stats="征婚信息"
call nav()
if not founduser then
Errmsg=Errmsg+"<br>"+"<li>您还没有登陆，请登陆后进行修改。"
founderr=true
end if
if founderr then
call Mslove_error()
else
call tumppages()'翻页处理
strFileName="usermarry.asp?"
Select Case Trim(Request("action"))
Case "add"
Stats="发布征婚"
Call add()
Case "addsave"
Stats="保存征婚"
Call addsave()
Case "edit"
Stats="修改征婚"
Call edit()
Case "editsave"
Stats="保存修改"
Call editsave()
Case "dele"
Stats="删除记录"
Call deldata()
End Select
if founderr then call Mslove_error()
end if
call activeonline()
call footer()
sub add()
dim yousend
sql="select MID from [Ms_Marry] where Username='"&trim(membername)&"'"
set rs=conn.execute(sql)
if not (rs.eof and rs.bof) then
yousend=1
else
yousend=0
end if
rs.close
if yousend=1 then
ErrMsg=ErrMsg+"<Br>"+"<li>对不起，你已经发布征婚信息，请不要三心二意。"
FoundErr=True
end if
if Not ChkPost then'查检提交数据
ErrMsg=ErrMsg+"<Br>"+"<li>您提交的数据不合法，请不要从外部提交发言。"
FoundErr=True
end if
if FoundErr=True then exit sub
%>
<script language="JavaScript" src="inc/Mymodify.js"></script>
<table width="100%" align=center cellpadding=3 cellspacing=1 class=tableborder1>
<form action="?action=addsave" method=POST name="theForm">
<tr>
<th height="28" colspan="2" align="center" class=tablebody1>发布征婚信息</th>
</tr>
<tr align="center">
<td height="27" colspan="2" class=tablebody2>择偶条件</td>
</tr>
<tr>
<td width="31%" align="right" class=tablebody1>年 龄：</td>
<td width="69%" class=tablebody1><select name="Minage" class="put" id="select">
<option value="16">16 </option>
<option value="17">17 </option>
<option value="18" selected>18 </option>
<option value="19">19 </option>
<option value="20">20 </option>
<option value="21">21 </option>
<option value="22">22 </option>
<option value="23">23 </option>
<option value="24">24 </option>
<option value="25">25 </option>
<option value="26">26 </option>
<option value="27">27 </option>
<option value="28">28 </option>
<option value="29">29 </option>
<option value="30">30 </option>
<option value="31">31 </option>
<option value="32">32 </option>
<option value="33">33 </option>
<option value="34">34 </option>
<option value="35">35 </option>
<option value="36">36 </option>
<option value="37">37 </option>
<option value="38">38 </option>
<option value="39">39 </option>
<option value="40">40 </option>
<option value="41">41 </option>
<option value="42">42 </option>
<option value="43">43 </option>
<option value="44">44 </option>
<option value="45">45 </option>
<option value="46">46 </option>
<option value="47">47 </option>
<option value="48">48 </option>
<option value="49">49 </option>
<option value="50">50 </option>
<option value="51">51 </option>
<option value="52">52 </option>
<option value="53">53 </option>
<option value="54">54 </option>
<option value="55">55 </option>
<option value="56">56 </option>
<option value="57">57 </option>
<option value="58">58 </option>
<option value="59">59 </option>
<option value="60">60 </option>
</select>
到
<select name="Maxage" class="put" id="select">
<option value="16">16 </option>
<option value="17">17 </option>
<option value="18">18 </option>
<option value="19">19 </option>
<option value="20">20 </option>
<option value="21">21 </option>
<option value="22">22 </option>
<option value="23">23 </option>
<option value="24">24 </option>
<option value="25">25 </option>
<option value="26" selected>26 </option>
<option value="27">27 </option>
<option value="28">28 </option>
<option value="29">29 </option>
<option value="30">30 </option>
<option value="31">31 </option>
<option value="32">32 </option>
<option value="33">33 </option>
<option value="34">34 </option>
<option value="35">35 </option>
<option value="36">36 </option>
<option value="37">37 </option>
<option value="38">38 </option>
<option value="39">39 </option>
<option value="40">40 </option>
<option value="41">41 </option>
<option value="42">42 </option>
<option value="43">43 </option>
<option value="44">44 </option>
<option value="45">45 </option>
<option value="46">46 </option>
<option value="47">47 </option>
<option value="48">48 </option>
<option value="49">49 </option>
<option value="50">50 </option>
<option value="51">51 </option>
<option value="52">52 </option>
<option value="53">53 </option>
<option value="54">54 </option>
<option value="55">55 </option>
<option value="56">56 </option>
<option value="57">57 </option>
<option value="58">58 </option>
<option value="59">59 </option>
<option value="60">60 </option>
</select>
岁</td>
</tr>
<%if Cint(Codeshow(11))=1 then%>
<tr>
<td width="31%" align="right" class=tablebody1>验 证 码：</td>
<td class=tablebody1><input type="text" name="codestr" maxlength="4" size="4"> <%=GetCode()%></td>
</tr>
<%end if%>
<tr>
<td align="right" class=tablebody1>身 高：</td>
<td class=tablebody1><select size="1" name="height">
<option value=无所谓>--无所谓--</option>
<option value=150厘米以下>150厘米以下</option>
<option value=151-160厘米>151-160厘米</option>
<option VALUE=161-170厘米 selected>161-170厘米</option>
<option value=171-175厘米>171-175厘米</option>
<option value=176-180厘米>176-180厘米</option>
<option value=181-185厘米>181-185厘米</option>
<option value=186-190厘米>186-190厘米</option>
<option value=191-195厘米>191-195厘米</option>
<option value=196厘米以上>196厘米以上</option>
</select></td>
</tr>
<tr>
<td align="right" class=tablebody1>婚姻状况：</td>
<td class=tablebody1> <input name="marital" type="checkbox" id="marital" value="未婚">
未婚
<input name="marital" type="checkbox" id="marital" value="已婚">
已婚
<input name="marital" type="checkbox" id="marital" value="离异">
离异
<input name="marital" type="checkbox" id="marital" value="丧偶">
丧偶</td>
</tr>
<tr>
<td align="right" class=tablebody1>收入水平：</td>
<td align="left" class=tablebody1><select name=income>
<option value=不限制 selected>不限制</option>
<option value=1000以下>1000以下</option>
<option value=1000-2000>1000-2000</option>
<option value=2000-3000>2000-3000</option>
<option value=3000-4000>3000-4000</option>
<option value=4000-5000>4000-5000</option>
<option value=5000-6000>5000-6000</option>
<option value=6000-7000>6000-7000</option>
<option value=7000-10000>7000-10000</option>
<option value=10000以上>10000以上</option>
</select>
元</td>
</tr>
<tr>
<td align="right" class=tablebody1>学 历：</td>
<td align="left" class=tablebody1><select size=1 name=education>
<option value=不要求 selected>不要求</option>
<option value=小学>小学</option>
<option value=初中>初中</option>
<option value=高中>高中</option>
<option value=中专>中专</option>
<option value=大专>大专</option>
<option value=大学>大学</option>
<option value=硕士>硕士</option>
<option value=博士>博士</option>
<option value=其它>其它</option>
</select></td>
</tr>
<tr>
<td align="right" class=tablebody1>所在地区：</td>
<td align="left" class=tablebody1><input type=text name=province size=12>
<select name="selectp" onChange="selectcityarea('selectp','selectc','theForm');theForm.province.value=this.value;">
<option value="0" selected>请选择..</option>
</select> </td>
</tr>
<tr>
<td align="right" class=tablebody1>城 市：</td>
<td align="left" class=tablebody1><input type=text name=city size=12> <select name="selectc" onChange="theForm.city.value=this.value;">
<option value="0" selected>请选择..</option>
</select></td>
</tr>
<tr>
<td align="right" class=tablebody1>爱情寄语：</td>
<td align="left" class=tablebody1><textarea name="Content" cols="60" rows="5" id="IDContent"></textarea>
<a style=cursor:hand onclick="if (parseInt(IDContent.rows)-3>0)(IDContent.rows=parseInt(IDContent.rows)-3)"><img src="Skins/Default/minus.gif" unselectable="on" border='0'></a>
<a style=cursor:hand onclick="if (parseInt(IDContent.rows)+3>3)(IDContent.rows=parseInt(IDContent.rows)+3)"><img src="Skins/Default/plus.gif" unselectable="on" border='0'></a>
<br>
不能大于200个字符。</td>
</tr>
<tr align="center">
<td height="25" colspan="2" class=tablebody1> <input class=2 type=Submit value="保存" name=Submit>
<input class=2 type="reset" name="Clear" value="清除"></td>
</tr>
<tr>
<td colspan="2" align="left" class=tablebody1> <p><font color="#FF0000">注意：</font><br>
1、您的征婚材料请到<a href="modifyfd.asp" target="_blank">交友资料</a>中修改，然后在这里只提交征婚对象的条件。<br>
2、请认真填写择友要求，不要在此输入一些与征婚/征友无关的信息，征婚/征友信息请务必详细填写，以达到自我宣传的最好效果。</p></td>
</tr>
</form>
</table>
<%end sub
sub addsave()''保存提交数据
if Not ChkPost then'查检提交数据
ErrMsg=ErrMsg+"<Br>"+"<li>您提交的数据不合法，请不要从外部提交发言。"
FoundErr=True
end if
if Cint(Codeshow(11))=1 then
if Not CodeIsTrue() then
errmsg=errmsg+"<br>"+"<li>验证码校验失败，请返回刷新页面后再输入验证码。"
founderr=true
end if
end if
if GroupSetting(196)=0 then
ErrMsg=ErrMsg+"<Br>"+"<li>对不起，你没有权限发布征婚信息，请升级为VIP会员。"
FoundErr=True
end if
if Chkvalue(1,GroupSetting(201),Cint(GroupSetting(202)))=false then
errmsg=errmsg+"<br>"+"<li>对不起，您的金币不够请确认。"
founderr=true
end if
if Chkvalue(2,GroupSetting(203),Cint(GroupSetting(204)))=false then
errmsg=errmsg+"<br>"+"<li>对不起，您的魅力值不够请确认。"
founderr=true
end if
if Chkvalue(3,GroupSetting(205),Cint(GroupSetting(206)))=false then
errmsg=errmsg+"<br>"+"<li>对不起，您的经验值不够请确认。"
founderr=true
end if
dim Marinfo,Marage
if Request.Form("Minage")<Request.Form("Maxage") then
Marage=checkStr(Request.Form("Minage"))&"|||"&checkStr(Request.Form("Maxage"))
else
Marage=checkStr(Request.Form("Maxage"))&"|||"&checkStr(Request.Form("Minage"))
end if
if Request.Form("province")="" then
errmsg=errmsg+"<br>"+"<li>请选择择偶对象所在省份！"
founderr=true
end if
if Request.Form("city")="" then
errmsg=errmsg+"<br>"+"<li>请选择择偶对象所在城市！"
founderr=true
end if
if checkStr(Request.Form("Content"))="" or strLength(Request.Form("Content"))>200 then
errmsg=errmsg+"<br>"+"<li>爱情寄语不为空长度不大于200个字符"
founderr=true
end if
if founderr=true then exit sub
Marinfo=Marage&"|||"&checkStr(Request.Form("height"))&"|||"&checkStr(Request.Form("marital"))&"|||"&checkStr(Request.Form("income"))&"|||"&checkStr(Request.Form("education"))&"|||"&checkStr(Request.Form("province"))&"|||"&checkStr(Request.Form("city"))&"|||"&checkreal(checkStr(Request.Form("Content")))
set rs=server.createobject("adodb.recordset")''保存入库
sql="select * from [Ms_Marry] where Username='"&trim(membername)&"'"
rs.open sql,conn,1,3
if not (rs.eof and rs.bof) then
errmsg=errmsg+"<br>"+"<li>您已发布征婚信息，请不要重复发布！"
founderr=true
exit sub
else
rs.addnew
rs("Username")=trim(membername)
rs("Marinfo")=Marinfo
rs("Addtime")=Now()
if Myvip>1 then
rs("Checked")=1
end if
rs.update
rs.close
conn.execute("update Ms_setup set Marrynum=Marrynum+1 where Cid=1")
sucmsg=sucmsg+"<br>"+"<li><b>恭喜您，您已成功发布征婚信息。</b>"
call Mslove_suc()
end if
end sub
sub edit()
dim Marinfo,id
id=checkStr(Request("id"))
if id="" or isnumeric(id)=false then
ErrMsg=ErrMsg+"<Br>"+"<li>您没有修改权限，请与管理员联系。"
FoundErr=True
end if
if founderr=true then exit sub
set rs=server.createobject("adodb.recordset")''保存入库
if Supermaster or master or Standmaster then
sql="select Marinfo from [Ms_Marry] where MID="&id&""
else
sql="select Marinfo from [Ms_Marry] where username='"&trim(membername)&"' and MID="&id&""
end if
rs.open sql,conn,1,1
if not (rs.eof and rs.bof) then
Marinfo=rs("Marinfo")
Marinfo=split(Marinfo,"|||")%>
<table width="100%" align=center cellpadding=3 cellspacing=1 class=tableborder1>
<form action="usermarry.asp?action=editsave" method=POST name="theForm">
<INPUT type=hidden value=<%=id%> name=id>
<tr>
<th height="28" colspan="2" align="center" class=tablebody1>修改征婚信息</th>
</tr>
<tr align="center">
<td height="23" colspan="2" class=tablebody2>择偶条件</td>
</tr>
<tr>
<td width="31%" align="right" class=tablebody1>年 龄：</td>
<td width="69%" class=tablebody1><select name="Minage" class="put" id="select">
<option value="<%=Marinfo(0)%>" selected><%=Marinfo(0)%></option>
<option value="16">16 </option>
<option value="17">17 </option>
<option value="18">18 </option>
<option value="19">19 </option>
<option value="20">20 </option>
<option value="21">21 </option>
<option value="22">22 </option>
<option value="23">23 </option>
<option value="24">24 </option>
<option value="25">25 </option>
<option value="26">26 </option>
<option value="27">27 </option>
<option value="28">28 </option>
<option value="29">29 </option>
<option value="30">30 </option>
<option value="31">31 </option>
<option value="32">32 </option>
<option value="33">33 </option>
<option value="34">34 </option>
<option value="35">35 </option>
<option value="36">36 </option>
<option value="37">37 </option>
<option value="38">38 </option>
<option value="39">39 </option>
<option value="40">40 </option>
<option value="41">41 </option>
<option value="42">42 </option>
<option value="43">43 </option>
<option value="44">44 </option>
<option value="45">45 </option>
<option value="46">46 </option>
<option value="47">47 </option>
<option value="48">48 </option>
<option value="49">49 </option>
<option value="50">50 </option>
<option value="51">51 </option>
<option value="52">52 </option>
<option value="53">53 </option>
<option value="54">54 </option>
<option value="55">55 </option>
<option value="56">56 </option>
<option value="57">57 </option>
<option value="58">58 </option>
<option value="59">59 </option>
<option value="60">60 </option>
</select>
到
<select name="Maxage" class="put" id="select">
<option value="<%=Marinfo(1)%>" selected><%=Marinfo(1)%></option>
<option value="16">16 </option>
<option value="17">17 </option>
<option value="18">18 </option>
<option value="19">19 </option>
<option value="20">20 </option>
<option value="21">21 </option>
<option value="22">22 </option>
<option value="23">23 </option>
<option value="24">24 </option>
<option value="25">25 </option>
<option value="26">26 </option>
<option value="27">27 </option>
<option value="28">28 </option>
<option value="29">29 </option>
<option value="30">30 </option>
<option value="31">31 </option>
<option value="32">32 </option>
<option value="33">33 </option>
<option value="34">34 </option>
<option value="35">35 </option>
<option value="36">36 </option>
<option value="37">37 </option>
<option value="38">38 </option>
<option value="39">39 </option>
<option value="40">40 </option>
<option value="41">41 </option>
<option value="42">42 </option>
<option value="43">43 </option>
<option value="44">44 </option>
<option value="45">45 </option>
<option value="46">46 </option>
<option value="47">47 </option>
<option value="48">48 </option>
<option value="49">49 </option>
<option value="50">50 </option>
<option value="51">51 </option>
<option value="52">52 </option>
<option value="53">53 </option>
<option value="54">54 </option>
<option value="55">55 </option>
<option value="56">56 </option>
<option value="57">57 </option>
<option value="58">58 </option>
<option value="59">59 </option>
<option value="60">60 </option>
</select>
岁</td>
</tr>
<%if Cint(Codeshow(11))=1 then%>
<tr>
<td width="31%" align="right" class=tablebody1>验 证 码：</td>
<td class=tablebody1><input type="text" name="codestr" maxlength="4" size="4"> <%=GetCode()%></td>
</tr>
<%end if%>
<tr>
<td align="right" class=tablebody1>身 高：</td>
<td class=tablebody1><select size="1" name="height">
<option VALUE=<%=Marinfo(2)%> selected><%=Marinfo(2)%></option>
<option value=无所谓>--无所谓--</option>
<option value=150厘米以下>150厘米以下</option>
<option value=151-160厘米>151-160厘米</option>
<option VALUE=161-170厘米>161-170厘米</option>
<option value=171-175厘米>171-175厘米</option>
<option value=176-180厘米>176-180厘米</option>
<option value=181-185厘米>181-185厘米</option>
<option value=186-190厘米>186-190厘米</option>
<option value=191-195厘米>191-195厘米</option>
<option value=196厘米以上>196厘米以上</option>
</select></td>
</tr>
<%dim theKidney,KidneyType
KidneyType="未婚,已婚,离异,丧偶"
theKidney=split(KidneyType, ",")%>
<tr>
<td align="right" class=tablebody1>婚姻状况：</td>
<td class=tablebody1>
<%for i = 0 to ubound(theKidney)
response.write "<input type=""checkbox"" name=""marital"" value="""&trim(theKidney(i))&""" "
if instr(Marinfo(3),trim(theKidney(i)))>0 then '如果有此项性格
response.write "checked"
end if
response.write ">"&trim(theKidney(i))&" "
if ((i+1) mod 5)=0 then response.write "<br>" '每行显示六个性格进行换行
next
%></td>
</tr>
<tr>
<td align="right" class=tablebody1>收入水平：</td>
<td align="left" class=tablebody1><select name=income>
<option value=<%=Marinfo(4)%> selected><%=Marinfo(4)%></option>
<option value=不限制>不限制</option>
<option value=1000以下>1000以下</option>
<option value=1000-2000>1000-2000</option>
<option value=2000-3000>2000-3000</option>
<option value=3000-4000>3000-4000</option>
<option value=4000-5000>4000-5000</option>
<option value=5000-6000>5000-6000</option>
<option value=6000-7000>6000-7000</option>
<option value=7000-10000>7000-10000</option>
<option value=10000以上>10000以上</option>
</select>
元</td>
</tr>
<tr>
<td align="right" class=tablebody1>学 历：</td>
<td align="left" class=tablebody1><select size=1 name=education>
<option value=<%=Marinfo(5)%> selected><%=Marinfo(5)%></option>
<option value=不要求>不要求</option>
<option value=小学>小学</option>
<option value=初中>初中</option>
<option value=高中>高中</option>
<option value=中专>中专</option>
<option value=大专>大专</option>
<option value=大学>大学</option>
<option value=硕士>硕士</option>
<option value=博士>博士</option>
<option value=其它>其它</option>
</select></td>
</tr>
<tr>
<td align="right" class=tablebody1>所在地区：</td>
<td align="left" class=tablebody1><input type=text name=province size=12 value="<%=Marinfo(6)%>">
<select name="selectp" onChange="selectcityarea('selectp','selectc','theForm');theForm.province.value=this.value;">
<option value="0" selected>请选择..</option>
</select> </td>
</tr>
<tr>
<td align="right" class=tablebody1>城 市：</td>
<td align="left" class=tablebody1><input type=text name=city size=12 value="<%=Marinfo(7)%>"> <select name="selectc" onChange="theForm.city.value=this.value;">
<option value="0" selected>请选择..</option>
</select></td>
</tr>
<tr>
<td align="right" class=tablebody1>爱情寄语：</td>
<td align="left" class=tablebody1><textarea name="Content" cols="60" rows="5" id="IDContent"><%=Marinfo(8)%></textarea>
<a style=cursor:hand onclick="if (parseInt(IDContent.rows)-3>0)(IDContent.rows=parseInt(IDContent.rows)-3)"><img src="Skins/Default/minus.gif" unselectable="on" border='0'></a>
<a style=cursor:hand onclick="if (parseInt(IDContent.rows)+3>3)(IDContent.rows=parseInt(IDContent.rows)+3)"><img src="Skins/Default/plus.gif" unselectable="on" border='0'></a>
<br>
不能大于200个字符。</td>
</tr>
<tr align="center">
<td height="25" colspan="2" class=tablebody1> <input class=2 type=Submit value="保存" name=Submit>
<input class=2 type="reset" name="Clear" value="清除"></td>
</tr>
<tr>
<td colspan="2" align="left" class=tablebody1> <p><font color="#FF0000">注意：</font><br>
1、您的征婚材料请到<a href="modifyfd.asp" target="_blank">交友资料</a>中修改，然后在这里只提交征婚对象的条件。<br>
2、请认真填写择友要求，不要在此输入一些与征婚/征友无关的信息，征婚/征友信息请务必详细填写，以达到自我宣传的最好效果。</p></td>
</tr>
</form>
</table>
<%end if
rs.close
end sub
sub editsave()''
if Not ChkPost then'查检提交数据
ErrMsg=ErrMsg+"<Br>"+"<li>您提交的数据不合法，请不要从外部提交发言。"
FoundErr=True
end if
if Cint(Codeshow(11))=1 then
if Not CodeIsTrue() then
errmsg=errmsg+"<br>"+"<li>验证码校验失败，请返回刷新页面后再输入验证码。"
founderr=true
end if
end if
dim Marinfo,Marage,id
id=checkStr(Request("id"))
if id="" or isnumeric(id)=false then
ErrMsg=ErrMsg+"<Br>"+"<li>参数错误，请与管理员联系。"
FoundErr=True
end if
if Request.Form("Minage")<Request.Form("Maxage") then
Marage=checkStr(Request.Form("Minage"))&"|||"&checkStr(Request.Form("Maxage"))
else
Marage=checkStr(Request.Form("Maxage"))&"|||"&checkStr(Request.Form("Minage"))
end if
if Request.Form("province")="" then
errmsg=errmsg+"<br>"+"<li>请选择择偶对象所在省份！"
founderr=true
end if
if Request.Form("city")="" then
errmsg=errmsg+"<br>"+"<li>请选择择偶对象所在城市！"
founderr=true
end if
if checkStr(Request.Form("Content"))="" or strLength(Request.Form("Content"))>200 then
errmsg=errmsg+"<br>"+"<li>爱情寄语不为空长度不大于200个字符"
founderr=true
end if
if founderr=true then exit sub
Marinfo=Marage&"|||"&checkStr(Request.Form("height"))&"|||"&checkStr(Request.Form("marital"))&"|||"&checkStr(Request.Form("income"))&"|||"&checkStr(Request.Form("education"))&"|||"&checkStr(Request.Form("province"))&"|||"&checkStr(Request.Form("city"))&"|||"&checkreal(checkStr(Request.Form("Content")))
set rs=server.createobject("adodb.recordset")''保存入库
sql="select Marinfo from [Ms_Marry] where Mid="&id&""
rs.open sql,conn,1,3
if not (rs.eof and rs.bof) then
rs("Marinfo")=Marinfo
if Myvip>1 then
rs("Checked")=1
end if
rs.update
rs.close
sucmsg=sucmsg+"<br>"+"<li><b>恭喜您，您已成功修改征婚信息。</b>"
call Mslove_suc()
else
errmsg=errmsg+"<br>"+"<li>对不起没有找到该记录"
founderr=true
exit sub
end if
end sub
sub deldata()'删除记录
dim id
id=checkStr(Request("id"))
if id="" or isnumeric(id)=false then
ErrMsg=ErrMsg+"<Br>"+"<li>参数错误，请与管理员联系。"
FoundErr=True
end if
if FoundErr=True then exit sub
if Supermaster or master or Standmaster then
conn.execute("delete from Ms_Marry where MID="&id&"")
else
conn.execute("delete from Ms_Marry where Username='"&trim(membername)&"' and MID="&id&"")
end if
sucmsg=sucmsg+"<br>"+"<li>您已成功删除记录。"
call Mslove_suc()
end sub
%>
<script>
first("selectp","selectc","theForm",0,0);
</script>
</body>
</html>
<%function checkreal(v)
dim w
if not isnull(v) then
w=replace(v,"|||","§§§")
checkreal=w
end if
end function%>